home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / LOAD AND RUN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  7 lines
  1. 10 DN=PEEK(186):AD=(PEEK(45)+256*PEEK(46))-1608
  2. 20 TY$="P":Q$=CHR$(34):SYSAD,A,TY$
  3. 30 IFA$=""THEN END
  4. 40 PRINT"[147]LOAD"Q$A$Q$","DN
  5. 50 PRINT"POKE198,0:IFPEEK(203)<>4THENRUN"
  6. 60 POKE631,13:POKE632,13:POKE198,2:END
  7.